home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / win / edu / profan2 / beispiel.lzh / MCITEST.PRF < prev    next >
Encoding:
Text File  |  1995-07-31  |  622 b   |  31 lines

  1. Declare Line%,Command$,Message$
  2.  
  3. WindowTitle "MCI Test program in PROBAT"
  4. Window 20,20-600,400
  5. Cls
  6.  
  7. Let Line%  = 0
  8. Let Command$ = @Input$("Please enter MCI command:",\
  9.                       "MCI command","")
  10.  
  11. WhileNot @Equ$(@Upper$(Command$),"END")
  12.   If @GT(Line%,20)
  13.     Cls
  14.     Let Line% = 0
  15.   EndIf
  16.   Print "Command: ";command$
  17.   Inc Line%
  18.   Let Message$ = @MCISend$(Command$)
  19.   If %MCIError
  20.     Print "Error: ";
  21.   Else
  22.     Print "OK!     ";
  23.   EndIf
  24.   Print Message$
  25.   Inc Line%
  26.   Let Command$ = @Input$("Please enter MCI command:",\
  27.                         "MCI command","")
  28. Wend
  29. End
  30.  
  31.